library(maptools)
## Loading required package: sp
## Checking rgeos availability: TRUE
library(raster)
srtm <- getData("SRTM", lon=-15.59972, lat=27.965)
library(rgdal)
library(rasterVis)
library(rgl)
library(htmlwidgets)
options(rgl.printRglwidget = TRUE)
open3d()
## wgl
## 1
plot3D(srtm)